<% function imgno(no) l=len(no) i = 1 for i = i to l num = mid(no,i,1) display = display & "" next response.write display end function %>